home *** CD-ROM | disk | FTP | other *** search
/ Catch That Kid Press Kit / Catch That Kid Press Kit.iso / pc / main.dxr / Internal_44_SingleStateButtons.ls < prev    next >
Encoding:
Text File  |  2003-12-23  |  2.4 KB  |  81 lines
  1. property spriteNum, myStandardMember, myRollovermember, myMouseDownMember, myMessageType, myMessage
  2. global gSound
  3.  
  4. on beginSprite me
  5. end
  6.  
  7. on mouseUp me
  8.   gSound.mPlayButtonClick()
  9.   mDoThis(me)
  10. end
  11.  
  12. on mouseDown me
  13.   sprite(spriteNum).member = me.myMouseDownMember
  14. end
  15.  
  16. on mouseEnter me
  17.   cursor(280)
  18.   sprite(spriteNum).member = me.myRollovermember
  19. end
  20.  
  21. on mouseLeave me
  22.   cursor(-1)
  23.   sprite(spriteNum).member = me.myStandardMember
  24. end
  25.  
  26. on mDoThis me
  27.   case myMessageType of
  28.     "no code":
  29.       nothing()
  30.     "do":
  31.       do(myMessage)
  32.     "sendAllSprites":
  33.       sendAllSprites(symbol(myMessage))
  34.   end case
  35. end
  36.  
  37. on isOKToAttach me, aSpriteType, aSpriteNum
  38.   tisok = 0
  39.   if aSpriteType = #graphic then
  40.     if PermittedMemberTypes().getOne(sprite(aSpriteNum).member.type) > 0 then
  41.       tisok = 1
  42.     end if
  43.   end if
  44.   return tisok
  45. end
  46.  
  47. on PermittedMemberTypes me
  48.   return [#bitmap]
  49. end
  50.  
  51. on GetSuitableMembers me, permittedTypes
  52.   cursor(4)
  53.   suitableMembersList = []
  54.   maxCastLib = the number of castLibs
  55.   repeat with theCastLib = 1 to maxCastLib
  56.     maxMember = the number of castMembers of castLib theCastLib
  57.     repeat with memberNumber = 1 to maxMember
  58.       theMember = member(memberNumber, theCastLib)
  59.       if permittedTypes.getPos(theMember.type) then
  60.         if theMember.name = EMPTY then
  61.           suitableMembersList.append(theMember)
  62.           next repeat
  63.         end if
  64.         suitableMembersList.append(theMember.name)
  65.       end if
  66.     end repeat
  67.   end repeat
  68.   cursor(-1)
  69.   return suitableMembersList
  70. end
  71.  
  72. on getPropertyDescriptionList me
  73.   theMember = sprite(the currentSpriteNum).member
  74.   memberType = theMember.type
  75.   permittedTypes = PermittedMemberTypes(me)
  76.   theMemberNum = theMember.number
  77.   suitableMembersList = GetSuitableMembers(me, permittedTypes)
  78.   descriptionList = [#myStandardMember: [#comment: "- Bitmaps - Standard member for sprite", #format: #member, #range: suitableMembersList, #default: theMember], #myRollovermember: [#comment: "Rollover member", #format: #member, #range: suitableMembersList, #default: member(theMemberNum + 1)], #myMouseDownMember: [#comment: "MouseDown member", #format: #member, #range: suitableMembersList, #default: member(theMemberNum + 2)], #myMessageType: [#comment: "Action on mouseUp", #format: #string, #range: ["do", "sendAllSprites", "no code"], #default: "do"], #myMessage: [#comment: "Name of code handler", #format: #string, #default: "YourCustomMessage"]]
  79.   return descriptionList
  80. end
  81.